home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / e / e_modules02.lha / e_modules02 / framework / FWTEST.e < prev    next >
Encoding:
Text File  |  1996-08-17  |  1.5 KB  |  57 lines
  1. OPT OSVERSION=37
  2. OPT PREPROCESS
  3.  
  4. -> WB FrameWork example: AppIcon + CTRL-C + EasyGui + EasyRexx
  5. -> $VER: FWtest v1.0 (31.03.96)
  6. -> based on myapp (c) Guichard Damien
  7.  
  8. MODULE 'icon','wb','tools/easygui','utility/tagitem'
  9. MODULE 'fw/wbObject','fw/ctrl_c',
  10.        '*myWindow','*myRexx','*myAppIcon','*newEventLoop'
  11.  
  12.  
  13. #define PROGRAMVERSION   '$VER: FWtest v1.0 (31.03.96)'
  14. #define MSG_CLI_NOLIBS   'Couldn\at open libraries...\n'
  15. #define MSG_CLI_NOWINDOW 'Couldn\at open window...!\n'
  16.  
  17. PROC main() HANDLE
  18.   DEF mywin: PTR TO myWindow,myrexx: PTR TO myRexx
  19.   DEF break:PTR TO ctrl_c,
  20.       icon:PTR TO myAppIcon,
  21.       mainLoop:PTR TO newEventLoop
  22.  
  23.   IF (iconbase:=OpenLibrary('icon.library',0))=NIL THEN Raise(MSG_CLI_NOLIBS)
  24.   IF (workbenchbase:=OpenLibrary('workbench.library',0))=NIL THEN Raise(MSG_CLI_NOLIBS)
  25.   NEW mainLoop,break,icon.create('WB AppIcon','PROGDIR:FWtest')
  26.  
  27.   IF break THEN mainLoop.addWBObject(break)
  28.   IF icon THEN mainLoop.addWBObject(icon)
  29.  
  30.   easyrexxbase:=OpenLibrary('easyrexx.library',0)
  31.   IF easyrexxbase<>NIL
  32.     NEW myrexx
  33.     IF myrexx
  34.       myrexx.open()
  35.       WriteF('rexx port:="\s"\n',myrexx.portname)
  36.       mainLoop.addWBObject(myrexx)
  37.     ENDIF
  38.   ENDIF
  39.  
  40.   NEW mywin
  41.   IF mywin=NIL THEN Raise(MSG_CLI_NOWINDOW)
  42.   mywin.open()
  43.   mainLoop.addWBObject(mywin)
  44.   mainLoop.do()
  45.  
  46. EXCEPT DO
  47.   IF exception
  48.     WriteF(exception)
  49.     mainLoop.discard()
  50.   ENDIF
  51.   IF workbenchbase THEN CloseLibrary(workbenchbase)
  52.   IF iconbase THEN CloseLibrary(iconbase)
  53.   IF easyrexxbase THEN CloseLibrary(easyrexxbase)
  54. ENDPROC
  55.  
  56. CHAR '$VER: ',PROGRAMVERSION,0
  57.